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About This Book 

This book contains simple games 
programs to play on a microcomputer. 
They are written for use on ZX8 1 , ZX 
Spectrum, BBC, VIC 20, 
TRS-80 and Pet and Apple micros, and 
many are short enough to fit into the 
ZX81's IK of memory. 

Most micros use the language BASIC, 
but they all have their own variations or 
dialects. In this book, the main listing for 
each program works on the ZX8 1 and 
lines which need changing for the other 
computers are marked with symbols and 
printed underneath. The fact that the 
programs are written for several micros 
means that they do not make full use of 
each one's facilities. You could try 
finding ways of making the programs 
shorter and neater for your micro. 

For each game, there are ideas for 
changing and adding to the programs 
and towards the back of the book you 
will find tips and hints on writing games 
of your own. Also in the book is a 
conversion chart to help you adapt 
programs in magazines and other books 
for your micro and a summary of the 
BASIC terms used in this book. 

Typing in the programs 

Lines which need changing for 
computers other than ZX8 1 are marked 
with these symbols: 

a VIC and Pet 

* BBC and Acorn Electron 

■ TRS-80 

• Apple 
s ZX Spectrum 

Every time you see the symbol for the 
micro you are using, look below for the 
corresponding line number with the 
same symbol and type that in instead. 

VIC 20 versions of all except the graphics program should workon 
Pet computers. 



Points to remember 

1 Type the lines exactly as they are printed 
including all punctuation and spaces. 

2 Press RETURN, NEWLINE or ENTER 
key at the end of each program line. 

3 Check each line as you go. 

4 Make sure you don't miss out a line or 
confuse one with another. A piece of paper 
or a ruler is useful to mark your place in 
the listing. 

5 Look out for the symbols and make sure 
you use the correct lines for your 
computer. 

6 If you are using a ZX8 1 or ZX Spectrum, 
remember not to type the program 
instructions letter by letter but to use the 
special key for each instruction instead. 

You may find it easier to get someone to 
read the program out to you while you 
type it in. Don't forget to explain that they 
must read every comma, fullstop, bracket 
and space and differentiate between letter 
"O" and zero, FOR and 4, and TO and 2. 

Debugging programs 



When you have typed 
in the program, check 
your manual to find out 
how to display it on the 
screen. (Usually you 
type LIST followed by 
the line numbers of the 
section you want to 

■) 




Check you have 
typed everything 
correctly. It is easy to 
make mistakes, so 
expect to find some. Use 
your manual to find out 
how to make changes to 
the program once it is 
typed in. If in doubt, you 
can always type the line 
again. All the computers 
will replace an existing 
line with a new one with 
the same number. 
Here is a checklist of common 
mistakes to look out for: 

1 Line missed out 

2 Line wrongly numbered 

3 The beginning of one line joined onto 
the end of another. 





4 Brackets, commas, colons, semi- 
colons, fullstops or spaces missed out, 
especially in long, complicated lines. 
Watch for double brackets in particular. 

5 Wrong line used for your computer. 

6 Letter "O" confused with zero. 

7 Wrong numbers used, e.g. extra zeros 
included. 

Playing the games 

To start the game you must type RUN. In 
some games things happen very quickly, 
so make sure you have read the 
instructions and know what you are 
supposed to do. 
It is quite likely that the program still 




has a mistake in it and either won't 
at all or the game won't work properly. 
Sometimes your computer will give you 
an error code which you can look up in 
the manual. This may help you find the 
mistake, though not always. List the 
program again and check it carefully 
against the book. 

When the game is over, the computer 
will usually say something like BREAK IN 
LINE 200. To play again, you have to type 
RUN. 

Experimenting with the games 

There are suggestions for changing and 
adding to the programs throughout the 
book, but don't be afraid to experiment 
with changes of your own. You can't 
damage the computer and you can 
always change back to the original if the 
changes don't work. 

You will probably find you want to 
adjust the speed of some games, * 
especially after you have played them a 
number of times. You will find out which 
line to change on each program page. 

Wherever you see 

PRINT, you can 

change the message in 

quotes that follows it to' 

whatever you like. 

Also, unless you have 

ZX8 1 with only IK, you 

can add extra 

messages. 

Type a line number (say 105 if you want 

to add a message between lines 100 and 

1 10), then type PRINT, then your 

message inside quotes. 

If your computer can make colours 

and sounds, you could use your manual 

to find out how they work and try adding 

them to the games in this book. 
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* See page 37 for a special note for BBC and Spectrum users. 
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Starship Takeoff 

You are a starship captain. You have crashed your ship on a 

strange planet and must take off again quickly in the alien 

ship you have captured. The ship's computer tells you the 

gravity on the planet. You must guess the force required for a 

successful take off. If you guess too low, the ship will not lift 

off the ground. If you guess too high, the ship's fail-safe 

mechanism comes into operation to prevent it being burnt 

up. If you are still on the planet after ten tries, the aliens will 

capture you. 












How the program works 



10 CLS 

20 PRINT "STARSHIP TAKE-OFF" 



• Clears the screen. 



•■A»30 LET G' 
•■A04O LET W 



INTCRND*20+ 
INT(RND*40+ 




Computer selects two 
numbers - one between 1 and 
20 to be put in G, the other 
between 1 and 40 to be put in W. 



50 LET R=G*W 



60 PRINT "GRAVITY= ";G 



70 PRINT 
SO FOR C 



"TYPE IN FORCE" 
1 TO 10 



90 INPUT F 




100 IF F>R THEN PRINT "TOO 
110 IF F<R THEN PRINT "TOO 
120 IF F=R THEN GOTO 190 



HIGH- 
LOW": 




Multiplies the number in G 
by number in W. Puts result 
inR. 

Prints GRAVITY and number 
inG. 

Asks you for a number. 

This begins a loop which tells 
the computer to repeat the next 
section 10 times, to give you 
10 goes. 

Stores your number in F. 

Compares number in F with 
number in R and prints 
appropriate message or 
jumps to 190. 



130 IF CO10 THEN PRINT 



II 



TRY A6A I N " — Prints if you've had less 

than 1 goes without a correct 
answer. 



140 

150 
160 
170 
180 
190 



NEXT C 

PRINT 

PRINT 

PRINT 

STOP 

PRINT 



— End of loop. Goes back to 80 
for another turn. 



"YOU FAILED -" 

"THE ALIENS GOT YOU 



"GOOD TAKE OFF" 

The above listing will work on a ZX81 . For 
other computers, make the changes below. 
•10 HOME 

PRINT CHR»(147) 
LET G=INT(RND<1)*20) 
LET G=INT(RND(0)*20> 
LET W=INT(RND<1>*40> 
LET W=INT(RND(0)*40) 



▲ 10 
*A«30 

■30 
*A»40 

■ 40 




How to make the game harder 

You can change the program to give 
you less than 1 goes. Do this by 
altering the last number in line 80 and 
the number in line 130. (They must be 
the same.) 




Puzzle corner 



You could change the range of possible 
forces. See if you can work out how. 



See page 2 for m eaning of 



Intergalactic Games 

There is fierce competition among the 
world's TV companies for exclusive 
coverage of the First Intergalactic Games. 
Everything depends on which company 
wins the race to put a satellite into orbit at 
the right height. 

You are the Engineer in charge of the 
launch for New Century TV. The crucial 
decisions about the angle and speed of the 
launching rocket rests on yourshoulders. 
Can you do it? 





How the program works 



10 PRINT "INTERGALACTIC GAMES" ~| Chooses the height to which 

20 LET H=INT (RND* 100+1 > I— you must launch your 

30 PRINT "YOU MUST LAUNCH A SATELLITE"! satellite, puts it in Hand 

40 PRINT "TO A HEIGHT OF ";H J printsit. 



50 FOR G=l TO 8 



60 PRINT "ENTER ANGLE <0-90> " 
70 INPUT A 




80 PRINT "ENTER SPEED (0-4OO00) 
90 INPUT V 




100 LET A=A-ATN(H/3)*180/3* 14159 



110 LET V=V-3000*SGR(H+1/H) 



120 IF ABS(A)<2 AND ABS<V)<100 THEN GOTO 






130 
140 
150 
160 

170 

1BO 
190 
200 
210 
220 
230 



IF 
IF 
IF 
IF 



A<-2 THEN PRINT "TOO SHALLOW" 
A>2 THEN PRINT "TOO STEEP" 
V<-100 THEN PRINT "TOO SLOW" 
V>100 THEN PRINT "TOO FAST" 



Beginning of loop to give you 
8 goes. 

Asks you for an angle and 
puts it in A. 

Asks you for a speed and puts 
itinV. 

Uses H to calculate what the 
angle should be and 
subtracts this from your 
guess to find out how close 
you were. 

1 Works out what the speed 
should be and subtracts it 
from your guess. 

210 Checks if 

you were close enough to 

win and if so jumps to 2 1 0. 

Prints an appropriate 
comment to help you with 
your next go. 



NEXT 

PRINT 
PRINT 

STOP 
PRINT 

PRINT 
STOP 



"YOU'VE FAILED" 
"YOU'RE FIRED" 



"YOU'VE DONE IT" 

"NCTV WINS-THANKS TO YOU 




Goes back for another go. 

Prints after 8 unsuccessful 
goes. 



Prints if you win. 



The above listing will work on a ZX8 1 . For 
other computers, make the changes below. 

■20 LET H=INT(RND(0)*100+1) 
*A«20 LET H=INT(RND(1>*100+1) 




Adding to the program 

These three extra lines will make the 
computer give you bonus points 
depending on how quickly you make a 
successful launch. 



LET B=INTdOOO/G) 

PRINT "YOU'VE EARNED A" 

PR I NT " BONUS OF " ; B ; " CRED I 




M 



II 



I 



Puzzle corner 



Can you change the program so that, if 
you win, it automatically goes back for 
another game, adding the bonus you've 
already earned to any new bonus? 
(Hint: you need to change two lines 
and add one.) 

See how long you can play before 
NCTV fires you. 





Evil Alien 



Somewhere beneath you, in deepest, blackest space, 

lurks Elron, the Evil Alien. You have managed 

to deactivate all but his short-range weapons 

but he can still make his ship invisible. 

You know he is somewhere within the 

three-dimensional grid you can see 

on your ship's screen (see 

below), but where? 

You have four space bombs. 

Each one can be exploded at 

a position in the grid 

specified by three numbers 

between and 9, which 

your computer will ask 

you for. Can you blast 

the Evil Elron out 

of space before he 

creeps up and 

captures you? 




X position 



(East) 



^H 



— 



— 



— 



• 



5 CLS 
10 PRINT 
20 LET S= 



"EVIL ALIEN" 

10 




How the program works 




30 LET G=4 

• ■A»40 LET X=INT(RND*S>" 
•■A«50 LET Y=INT(RND*S) 
•■▲•60 LET D=INTCRND*S) 



70 FOR 1-1 TO 6 



80 PRINT "X POSITION (O TO 9>?" 
85 INPUT XI 

90 PRINT "Y POSITION <0 TO 9)?" 
lOO INPUT Yl 

10 PRINT "DISTANCE (O TO 9>?" 

20 INPUT Dl 




Sets the size of the grid. 
Sets the number of goes. 

Elron's position is fixed by 
these 3 lines, which select 3 
numbers between and the 
size of the grid. 

Start of a loop which tells the 
computer to repeat the next 
15 lines G times. 



This section asks you for 
your 3 numbers and stores 
theminXl,YlandDl. 



30 IF X=X1 AND Y=Y1 AND D=D1 THEN GOTO 300 



140 


PRINT "SHOT WAS "; 




150 


IF Y1>Y 


THEN 


PRINT 


"NORTH"; 


160 


IF YKY 


THEN 


PRINT 


"SOUTH"; 


170 


IF X1>X 


THEN 


PRINT 


"EAST"; 


180 


IF XKX 


THEN 


PRINT 


" WEST " ; 


190 


PRINT 








200 


IF D1>D 


THEN 


PRINT 


"TOO FAR" 



210 IF DKD THEN PRINT "NOT FAR ENOUGH 
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Checks if 
yon were 

right and jumps to 

300 if you were. 

Your guesses are 
compared with Elron's 
position and a report 
printed. 




220 NEXT I 




YOUR TIME HAS RUN OUT! !" 



230 PRINT 

240 STOP 

300 PRINT "*BOOM* YOU BOT HI 

310 STOP 

The above listing will work on a ZX8 1 . For 
other computers, make the changes below. 

•5 HOME 

A5 PRINT CHR*(147» 

X=INT(RND<1)*S) 
X=INT(RND<0)»S) 
Y=INT(RND(1)*S) 
Y=INT(RND<0>*S) 
D=INT(RND<1)*S) 
D=INT(RND(0)«S) 



M 



I M 



End of loop. Returns for 
another go. 

Prints if you've used up all 
your goes. 

Prints if you guessed right. 



M 



— 



Puzzle corner 

Can you work out how to change the 
program so that the computer asks you 
for a difficulty number which it can put 
into S instead of S being fixed? (Tip: limit 
the value of S to between 6 and 30 and 
use INT(S/3) for the value of G in line 
30.) 








H 
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How to make the game harder 

This program has been written so that 
you can easily change the difficulty by 
changing the size of the grid. To do this, 
put a different value for S in line 20. 

If you increase the grid size you will 
need more space bombs to give you a 
fair chance of blasting Elron. Do this by 
changing the value of G in line 30, 








See page 2 for m eaning of • a 
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Beat the Bug Eyes 



•■▲•50 
60 



You're trapped! Everywhere you turn you catch a glimpse of the steely 

cold light of a space bug's eyes before it slithers down behind a rock 
again. Slowly the bugs edge towards you, hemming you in, waiting for a 
chance to bind you in their sticky web-like extrusions. Luckily you have 

your proton blaster with you. 
The bug eyes pop up in four different places on your screen and these 
correspond to keys 1 to 4. Press the correct key while the bug's eyes are 
on the screen and you will blast it. There are 1 bugs in aU - the more you 

blast, the greater your chance of escape. 

How the program works 

PRINT "BUG EYES" Sets the score to zero for start 

LET S— ' ^" "^^" ofgame. 

FOR T=l TO 10 _ n^ji^^;^j«f i««p«ri<i/.ii 

gives you 10 turns. 

— Clears screen. 

Delay loop which lasts a 

— varying length of time, 
depending on the value of 
RND. 

— Chooses a number from 1 to 4 
and puts it in R. 

— Jumps to one of four sub- 
routines depending on the 
value of R. This gets two 
numbers which correspond 
to a position on the screen - 
"A" spaces across and "D" 
lines down - and then jumps 
again to 350 to move the 
cursor to this position. 



FOR 1=1 TO INT (RND* 30+20) 
NEXT I 




•■±•70 LET R=INT(RND*4+1> 



■▲•80 GOSUB 210+30*R 



GOSUB makes the computer 
branch out of the main 
program to a "sub-routine" 
(see next page). RETURN at 
the end of the sub-routine 
sends it back to the main 
program again. 



00" 



*■▲< 
•Ii 



90 PRINT 

ilOO FOR 1 = 1 TO 



20 



110 LET R*=INKEY* 

120 IF R*<>"" THEN GOTO 140 

130 NEXT I 

140 IF VAL("0"+R*)OR THEN GOTO 210 

150 LET 5=S+1 ™ 



Prints the "bug eyes" at this 
position. 



Loops round to see if you are 
—pressing a key. If you are, 
computer jumps to 140 and 
checks if it is the right one. 



— Increases score by 1. 



r 



10 






i 




^■w 





mmm 








160 CLS — 





170 

ISO 

ia«1 90 
200 

210 

230 
240 
250 
260 
270 
2 SO 
290 
3O0 
310 
320 
330 
340 
350 
360 
370 
380 
390 




GOSUB 35C 
PRINT "J*" 

FOR J=l TO 40 
NEXT J 




NEXT T 



■■■■ 



PRINT "YOU BLASTED ";S;"/10 BUGS" 
STOP 





LET D=5 
LET A=l 
GOTO 350 
LET D=l 
LET A=9 
GOTO 350 
LET D=5 
LET A=1B 
GOTO 350 
LET D=10 
LET A=7 
FOR 1=1 TO 
PRINT 
NEXT I 

PRINT TAB<A) ; 
RETURN — 

The above listing will work on a ZX8 1 . For 
other computers, make the changes below. 

40, 160 HOME 

40,160 PRINT CHR*(147) 

FOR 1=1 TD INT(RND(0>*300+200) 
FOR 1=1 TO INT(RND(l>*300+200) 
LET R=INT(RNDCO)*4+l) 
LET R=INT(RND(1) t4+l) 
*BA«80 ON R GOSUB 240,270,300,330 
*BA«100 FOR 1 = 1 TO 150 



•▲ 



*■▲ 



50 
50 
70 
70 
80 
100 



105 R*="" 

HO BET R* 

110 R*=INKEY*<1) 

110 IF PEEK (-16384) > 127 THEN GET R* 

190 FOR J=l TO 300 




Clears screen 

Sends cursor back to the 
same position and prints a 
star. 

Delay loop to make star stay 
on screen long enough for 
you to see it. 

* Goes back for next turn. 

Prints score. 




Sub-routines. 







How to changethe 
speed 

You can speed the game 
up by changing the last 
number in line 100 to a 
lower one. 

How to use more of 
the screen 

This program was written 
to fit on the smallest 
screen width (which is the 
VIC 20). For the other 
computers, you can 
increase the values of A in 
lines 250, 280, 310 and 340. 
Check your manual to find 
the maximum width your 
computer can use. 





Puzzle corner 

Can you change the program to make 
the bugs appear in more than four 
places on the screen? Can you add more 
bugs too? 
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See page 2 for m eaning of • a ■ * 



Moonlander 

You are at the controls of a lunar module which is taking a small team of astronauts 
down to the moon's surface. In order to land safely you must slow down your descent 
but that takes fuel and you have only a limited supply. 

Your computer will tell you your starting height, speed and fuel supply and ask 
how much fuel you wish to burn. It will then work out your new height and speed. A 
burn of S will keep your speed constant. A higher number will reduce it. Try to have 
your speed as close to zero as you can when you land. Can you land safely on the 
moon? 



A»10 
20 

30 
40 
50 
60 
70 
80 



PRINT 
LET T 
LET H 
LET V 
LET F 
PRINT 
PRINT 



"MOONLANDER" 
=0 

=500 
SO 
120 

,, TIME";T, ,, HEI6HT";H 
"VEL. ";V S "FUEL";F 



Notice the commas and semi 
colons in lines 70 and 80. 
Experiment with leaving 
them out and changing them 
round to see what happens. 



90 IF F=0 THEN GOTO 140 



lOO PRINT "BURN? 
110 INPUT B 
120 IF B<0 THEN 
130 IF B>30 THEN 
140 IF B>F THEN 



<0-30) " 



ET B-0 
LET B=30 
ET B=F 



ISO LET Vl=V-B+5 

160 LET F=F-B 

170 IF <V1+V)/2>=H THEN GOTO 220 



180 LET H=H-(Vl+V)/2 
190 LET T=T+1 
200 LET V=V1- 



210 60T0 70 

220 LET Vl=V+(5-B)*H/V 

230 IF VI >5 THEN PRINT "YOU CRASHED-ALL DEAD" 

240 IF VI >1 AND Vl<=5 THEN PRINT "OK-BUT SOME 

250 IF V1<=1 THEN PRINT "GOOD LANDING." 

260 STOP 

The above listing will work on a ZX8 1 . For 
other computers, make the changes below. 

•10 HOME 

A10 PRINT CHR*(147) 

2 See page 2 for meaning of % a 



INJURIES 



49 



r> + 
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Adding to the program 




How the program works 



Sets the starting values for 
time, height, speed and fuel 
and prints them. 

If you have no fuel left, 
computer jumps down the 
program, bypassing the 
section which asks you for a 
burn. It then prints a running 
commentary of your progress 
as you approach the moon's 
surface. 

Gets a number from you for 
the amount of fuel you wish to 
burn and checks it is within 
the correct limits. 

Calculates your new speed, V 1 

Calculates your new fuel level. 

1 Checks if the distance 
travelled in your last go is 
greater or equal to your 
height above the moon. If it 
is, you've landed. Computer 
then jumps down program to 
see how good a landing you 
made. 

Calculates your new height. 

> Increases time by 1. 

> Puts your new velocity into V 
so it will print in line 80 for 
your next go. 

Goes back to beginning of 
loop for next go. 

Calculates your speed on 
touch-down and checks what 
kind of landing it gives you. 




?v 





If you add the following lines, you will see a star 
printed each go. The distance of the star from 
the left-hand side of the screen corresponds to 
your height above the moon. 

85 FOR 1=2 TO H/500*nn 

86 PRINT " "; 

87 NEXT I 

88 PRINT "*" 

Replace nn with the width of your screen. 

Changes to try 

Try changing the values of H, V and F in lines 40 
to 60 and see what happens. 



Puzzle corner 

You could make the game easier by increasing 
the maximum speed allowed for a safe landing. 
How would you change the program to do 



-? 



^ 



£5 
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Monsters of Galacticon 



Landing on Galacticon was easy - 
but no-one warned you that some of 
the nastiest monsters in the known 
Universe are to be found there. 

As each monster threatens, you 
must choose one of your weapons - 
a ray gun, a trypton blaster or a 
sword laser - to use against it. Can 
you make the right choices? If so, 
you may live to conquer Galacticon. 




10 PRINT "MONSTERS OF GALACTICON" 



20 DIM M«(4) 



30 LET N=4 



40 LET M=5 



•I 
• 
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How the 
program works 

Sets up a storage place (an 
"array") labelled M$ with 4 
compartments in it - M$( 1 ) , 
M$(2), M$(3) and M$(4) - one 
for each monster name. 

Sets the number of monsters 
to 4. 

Sets the number of people in 
your group to 5. 

Puts the 4 monster names into 
the array. 




160 FDR T 

170 CLS 

BO LET R 
190 PRINT 
200 PRINT 



INT(RND 

"MONSTER 
"IT'S 



D*N+1) "1 
ER COMING. ■ ■" f 
A "sM»(R> J 



210 PRINT "WHICH WEAPON ? (R, S OR T) 
220 INPUT R* 
s*BA«230 LET W=CODE (R») -54+R 

•■A240 LET W=W-3«(W>3)-3*(W>6) 




250 IF W=2 THEN GOTO 300 



These lines shuffle the 
monsters up. Computer loops 
round N times. Each loop, it 
selects two numbers between 
1 and N and switches the 
names in the compartments 
with those numbers. TS is a 
temporary string used during 
the switch round process. 

Beginning of loop for 8 turns. 
Clears screen 

Chooses one of the monsters 
and prints its name. 

The computer uses the values 
in R and R$ to work out a 
weapon number, W , which 
will be 1,2 or 3. 

If W is 2, the computer jumps 
to 300 to say you've killed the 
monster. 



See page 2 for m ean ing ofm a ■ *s 
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260 IF W=3 THEN GOTO 320 



y 



270 PRINT "NO USE. IT'S EATEN ONE" 
280 PRINT "OF YOUR GROUP" 
290 GOTO 360 

300 PRINT "YOU'VE KILLED IT" 
310 GOTO 380 
320 PRINT "NO EFFECT" 
*BA«330 IF RND>.4 THEN GOTO 3B0 



If W is 3, computer jumps to 
320 to say "no effect". 

Prints if W is not 2 or 3. Then 
jumps to 360 to decrease 
number of people in group by 
one. 

Leading on from the "no 
effect" line is a random 



\m possibility of the monster 
340 PRINT "YOU ANGERED THE " ; MS (R) ; "AND I T " | being angered and killing 
350 PRINT "KILLED ONE OF YOUR GROUP" J someone. 

Checks if you still have some 

360 LET M=M-1 "" 

370 IF M<1 THEN GOTO 440 




380 FOR 1=1 

390 NEXT I 
400 NEXT T" 



TO 20 




410 PRINT "YOU HAVE SURVIVED TO" 
420 PRINT "CONQUER 6ALACTICON" 
430 STOP 

440 PRINT "YOU'RE ALL DEAD" 
450 STOP 

The above listing will work on a ZX81 . For 
other computers, make the changes below. 

■100 LET A=INT(RND(0)*N+1) 
10O LET A=INT(RND(1)«N+1) 
110 LET B=INT(RND<0>*N+1> 
110 LET B=INT(RND<1)*N+1) 
#170 HOME 

A 170 PRINT CHR*(147> 
■180 LET R=INT(RND<0) *N+1) 
180 LET R=INT(RND(1) *N+1> 
*«A#230 LET W=ASC(R*>-81+R 
S230 LET W=C0DE(R*)-81+R 
*»A240 LET W=W+3*(W>3)+3*(W>6) 
*A#330 IF RND<1)>.4 THEN GOTO 380 



people left. If you haven't it 
jumps to 440 to tell you. 

Delay loop to keep messages 
on screen long enough for 
yon to read them. 

Goes back for next turn. 

Prints if you still have people 
left after all your turns. 



■330 IF RND(0)>.4 THEN GOTO 380 
*BA#3B0 FOR 1 = 1 TO 300 

i 



r 







Puzzle corner 

There axe at least four 

ways of making this game 

harder. 

Can you work out what 

they are? 




K 





Alien Snipers 




V. 





. . • 



You are the captain of an interstellar cruiser 
which, through damage to one of its hyperspace 
tors, has strayed into a forbidden area. Alien sniper 
ships are attacking you and, to make things worse, are 
using a jamming device on your radar which makes it give 
/ false readings. Luckily your computer knows a code which you 
^ — can use to work out the correct locations of the enemy ships. But you 

must be quick - they don't stay in one place for long! 

Your computer will print a letter (the false enemy location) and a code 

number. You must think through the alphabet by that number of letters and 

type in the letter you get to. E.g. for M 4, you must type 0, and for C 2, you must 

type E and so on. Typing in a letter automatically triggers off your laser 

gun, so if your letter is correct you'll score a hit. You can choose the 

difficulty of each game. This is a number between 1 and 10 and is the 

maximum number of letters to be added on each time. 

You get 10 alien snipers each game. See how many you can hit. 






10 
20 
30 
40 
50 
60 



PRINT "ALIEN SNIPERS" 

PRINT 

PRINT "DIFFICULTY (1-10)" 

INPUT D 

IF D<1 OR D>10 THEN 60T0 50 




How the program works 



70 LET S=0 



80 FOR 0=1 TO 10 



Gets a difficulty number from 
you, puts it in D, and checks it 
is within the correct limits. 



Sets opening score to zero. 

Beginning of loop which 
gives you 1 goes. 



s*l 



90 LET L*=CHR*<INT(RND*<26-D)+38> > 



•■A#100 LET N=INT(RND*D+1) 

110 CLS 

120 PRINT 

130 PRINT L*,N 






140 FOR 1=1 TO 20+D*5 
150 LET I*=INKEY* 
160 IF I*<>" " THEN GOTO 
170 NEXT I 



190 



a letter between A 
and the letter which is your 
difficulty number before the 
end of the alphabet. 

> Selects a number between 1 
andD. 

Prints the letter and the 
number. 



Checks if you are pressing 
key and jumps to 190 if you 



180 GOTO 200 



r^ 




CHART 
FOft COwye<fT| 

NOM6ER3 




•■a»190 IF I*=CHR*(CODE(L*)+N) THEN LET S=S+1 



If you didn't press a key, 
computer jumps to line 200 
which sends it back for 
another go. 



Checks if you 
the pressed 
right key and, 
if so, increases 
your score by 1, 



200 NEXT G 



;S; "/10" 



210 PRINT "YOU HIT 
220 STOP 

The above listing will work on a ZX8 1 . For 
other computers, make the changes below. 

•10, 110 HOME 

PRINT CHR*C147) 
L*=CHR* ( INT (RND (O) * (26-D) 
L*=CHR» ( INT (RND ( 1 ) * (26-D) 
L*=CHR* < INT (RND * (26-D) 
LET N=INT(RND(0)*D+1> 
LET N=INT(RND(1)*D+1) 
FOR 1=1 TO 2O0+DS50 
FOR 1=1 TO 100+D*50 
!*="•' 

LET I*=INKEY*(1) 
BET I* 

IF PEEK (-16384) >127 THEN BET 
IF I *=CHR* ( ASC ( !_♦ ) +N ) THEN 



End of loop. Goes back for 
another turn. 

Prints score after 10 goes. 



— 



Mi 



AlO, 110 
■90 LET 
*A*90 LET 
s90 
■ 1 OO 

•±•100 
#■▲140 

• 140 

• 145 

• 150 
A 150 
•150 

190 



+65)) 
+65)) 
)) 



I* 



LET S=S+1 



How to change the 
speed 

If the game is too quick for 
you, put a higher number 
into the middle of line 140 
(i.e. to replace 20 or 200). 
You can speed it up with a 
lower number. 






How to make the game harder 

You could change the 1 in lines 40 and 
60 to, say, 3 to allow difficulties of only 3 
or more. 




Puzzle corner 

Can you adjust the scoring so that it fits 
the code number i.e. you score 1 point if 
the code is 1 , 2 points if the code is 2 and 
so on? 



■M 



Asteroid Belt 



I* 



You are on a trip through the Asteroid Belt. To avoid crashing into the 
asteroids, you must destroy them and the force required for doing this 

depends on their size , 

Asteroids appear on your computer screen as groups of stars. To 
destroy them you must press the number key corresponding to the 
number of stars. Be prepared - asteroids come at you thick and fast. 




10 PRINT "ASTEROID BELT" 





20 LET 5=0 



30 FOR G-l TO 10 

40 CLS 



#■▲•50 LET A= INT (RND* 18+1 > 



How the program works 



Sets the opening score to 
zero. 

Starts a loop which gives 10 
goes. 

Chooses a number 
for the position of the 
asteroid across the screen. 
Puts this in A. 



#■▲•60 LET D=INT(RND*12+1) 



▲•70 LET N=INT<RND*9+1> 



80 FOR I 
90 PRINT 
100 NEXT 



= 1 



D 



Chooses a number (1 to 12) 
for the position of the 
asteroid down the screen and 
pots it in D. 

Chooses a number ( 1 to 9) for 
the number of stars in the 
asteroid. 

Moves the cursor D lines 
down the screen. 



TO N 
AND I<>4 



.>• 



HO FOR 1 = 1 

120 IF KM 

130 PRINT 

140 PRINT TAB (A) s 

ISO PRINT "*"; 

160 NEXT I 

170 PRINT 



AND I<>7 THEN SOTO 150 



Loops round N times 
printing a star each 
time in the appropriate 
position. 



• ■▲•ISO FOR 1 = 1 TO lO 
•▲•190 LET Q=VAL("0"+INKEY*> 
200 IF QOO THEN GOTO 240 
•210 NEXT I 



Loops round to see if you are 
■ pressing a key and jumps to 
240 if you are. 



18 



220 PRINT "CRASHED INTO ASTEROID 
230 GOTO 290 



II 




240 IF QON THEN 60TD 270 



Prints if yon run out of time. 

Checks if your number is the 
■ same as N and jumps to 270 if 

itisnt. 



1 






mt^tm^mtm 
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V 



4. 




ft 




£ 



UsJM 



E 





250 PRINT "YOU DESTROYED IT" 



260 LET S=S+1 
270 



Prints if yon pressed the right 
number. 

Increases your score by one. 



IF Q<N THEN PRINT 
IF Q>N THEN PRINT 



"TOO STRONG 



*HA«290 FOR 1=1 TO 50 
300 NEXT I 



"NOT STRONG ENOUGH H Compares your number with 

•t r™ N and prints an appropriate 

-J message. 

Delay loop to keep messages 
ttttaaammaaaammmm ^ mam on screen long enough for 

you to read them. 



310 NEXT G 



320 PRINT "YOU HIT ";S; 
330 STOP 



If 



OUT OF 10" 



The above listing will work on a ZX8 1 . For 
other computers, make the changes below. 

HOME 

PRINT CHR*(147) 

A=INT < RND (O) * lB+1 > 
A=INT<RNDU)*1B+1) 
D=INT<RND(0)*12+1> 
D=INT(RND<1)«12+1> 
N=INT(RND (0)19+1) 
N=INT (RND ( 1 ) *9+l ) 




1=1 TO lOO 

Q 
IF PEEK (-16384) >127 
Q=INKEY(100)-48 



THEN GET Q 



1 = 1 
1 = 1 



TO 
TO 



500 
250 



See page 2 for meaning of •**+ 



— Goes back for another go. 



Prints your score alter 10 
goes. 



m 



Changing the speed 
of the game 

Line 180 (190 for the BBC) 
controls how much time 
you have to press a key. 
Change the last number in 
1 80, or the number in 
brackets in the BBC line 
190, to a lower number to 
speed up the game. 




Puzzle corner 

Can you adapt the scoring 
system so that, for each 
asteroid, you get the same 
number of points as there 

are stars in it? 





~ 
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Trip into the 

Imagine you are in a 
spaceship travelling 
nearly as fast as light. 
Strangely time is 
passing more slowly 
inside your spaceship 
than outside. So, 
having set off on a long 
fast space trip, you 
can return to Earth 
further in the future 
than the clocks inside 
your ship indicate. 

In this game, your 
computer tells you 
how many years must 
elapse on Earth 
before you return. 
You then decide the 
length of your trip (in 
light years) and the 
speed of your ship (as 
a fraction of the speed of 
light) in order to achieve 
this. Take care not to 
travel too far too slowly or 
you will die of old age on the way. 





20 



PRINT "TRIP INTO THE FUTURE 
LET T=INT<RND*100+25) 
PRINT "YOU WISH TO RETURN " 
PRINT "YEARS IN THE FUTURE. 
PRINT 

70 PRINT "SPEED OF SHIP (0-1)" 

80 INPUT V 

90 IF V>-1 OR V<=0 THEN GOTO 70 




How the program works 



Chooses a whole number 
between 25 and 124 for the 
years which must elapse 
before your return, and prints it. 



100 PRINT "DISTANCE OF TRIP" 
110 INPUT D 

120 LET T1=D/V 




Gets a speed from yon and 
checks it is within the correct 
limits. 

Gets a distance from yon. 

Calculates the time taken 
inside the ship. 




See page 2 for meaning of • a ■ * 




130 LET T2=T1/SQR(1-V*V> 



140 PRINT 
150 PRINT 
160 PRINT 



" YOU TOOK " ; T 1 ; " YEARS " 
"AND ARRIVED "; T2 ;" YEARS ' 
"IN THE FUTURE." 




170 IF Tl>50 THEN GOTO 210 



Calculates the time taken 
outside the ship (i.e. on 
Earth). 

Prints these times. 



Checks if yon took longer 
than your lifetime (SO years). 
Jumps to line 210 if yon did. 



180 
190 
200 
210 
220 



IF ABS<T-T2)< 

IF ABS(T-T2) 

STOP 

PRINT "YOU DIED ON THE WAY" 

STOP 



5 THEN PRINT "YOU ARRIVED ON TIME"1 Cnecksif 

vou were 

THEN PRINT "NOT EVEN 



^within 
I 5 years 

-J and prints 
a message, 



The above listing will work on a ZX81. For 
other computers, make the changes below. 

•10 HOME 

A10 PRINT CHR«(147) 

■30 LET T=INT<RND(0)*100+25> 

•±•30 LET T=INT<RNDU)*100+25) 



Puzzle corner 

Can yon work out how to change the 
program to do the following things? 



1 ) Give a wider range of years which 
most elapse before you return to Earth. 

2) Increase the accuracy required from 
within 5 years to within 2 years. 

3) Shorten or lengthen your lifetime. 
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Death Valley 



JJl 




There is only one way to escape the forces of the evil Dissectitrons. You 
will have to steel every nerve and fly your single-seater Speed Dart 
along the jagged, bottomless ravine known as Death Valley. 

Your computer will ask you for the width of the valley. Try 15* first and 
then work your way down - 8 is quite difficult. Steer your Speed Dart by 
pressing Q to go left and P to go right, and see if you can make it safely 
through Death Valley. 

*If you are using a VIC 20, then use widths of 6 to 10. 



%m vs 



" 'i ' 



10 PRINT "DEATH VALLEY" 
20 LET S-0 



30 LET M=200*- 



40 PRINT "WIDTH?" 

50 INPUT W 

60 LET W=INT(W/2> 




A70 
80 
90 



LET 
LET 
LET 



l=ioT 

Y=W L 
R=W J 



Edge 

of screen 






L spaces 



(=10 at 
start) 



100 LET D=INT0RND*3-1) 



110 IF L+D<0 OR L+D>20 THEN GOTO lOO 



120 LET L=L+D 
130 LET Y=Y-D 
140 LET R=R+D 




+D 



s 



145 SCROLL 
150 LET N=L 
160 GOSUB 1000 
170 PRINT "I"; 

180 LET N=Y 
190 GOSUB 10O0 
2O0 PRINT "t"; 



210 LET N=R 
220 GOSUB 1000 
230 PRINT "I" 




*A*240 LET I*=INKEY* 



250 IF I*<>"Q" THEN GOTO 280 



260 LET 
270 LET 



Y=Y-1 
R=R+1 



280 IF I*<>"P" THEN GOTO 310 



How the program works 

Sets the number of goes used 
to zero for start of game. 

M is the maximum number of 
goes allowed. 

Gets a width number from 
y ou , divides it by 2 and uses 
INT to remove any halves. 



L, Y and R are the distances 
between walls and Speed 
Dart. 



Y spaces 



(-Wat 
start) 



Selects - 1, or + 1 and puts it in D 

Checks L f D isn't so big or 
small that columns disappear 
offsides of screen. 

Changes spaces between 
columns according to the 
value of D. 




R spaces 



( = Wat 

start) 



Moves cursor L spaces 
across the screen and prints 
1 1. (The semi-colon then stops 
the cursor going down to the 
next line.) 

Moves cursor a further Y 
spaces and prints. * 

Moves cursor a further R 
spaces and prints another I. 
(No semi -colon this time, so 
the cursor then goes down to 
the next line.) 



\ 



X 



Checks to see i 
pressing a key. 

If the key you are pressing is 
not 0, computer jumps to 280. 

If key is Q then Y is 
decreased by one and R 
increased by one so star 
moves left. 

Checks if key being pressed is P, 




»J^" 



I 



*■? 



290 
300 



=Y+l"l 
=R-lT 



Y= 
R=R- 



310 IF Y<1 OR R<1 THEN SOTO 370 



320 LET S=S+1 



330 IF S<M THEN GOTO 100 



340 PRINT "WELL DONE-YOU MADE IT 

350 PRINT "THROUGH DEATH VALLEY" 

360 STOP 

370 PRINT "YOU CRASHED INTO THE WALL" 

380 PRINT "AND DISINTEGRATED" 

390 STOP 

lOOO IF N=0 THEN RETURN 

1010 FOR 1=1 TO N 

1020 PRINT " "; 

1030 NEXT I 

1040 RETURN . 

The above listing will work on a ZX81 . For 
other computers, make the changes below. 

A 70 LET L=4 

■lOO LET D=INT(RND(0)*3-1) 
*A«100 LET D=INT(RND(1)«3-1) 
S*BA«145 

•235 1*="" 

A 240 GET IS 

•240 LET I*=INKEY*<1) 
i #240 IF PEEK (-16384) >127 THEN GET I* 



T 



If so, star is moved right by 
increasing Y by one and 
decreasing R by one. 

Checks if yon have crashed 
into a wall. Jumps to 370 to 
tell you if you have. 

Increases number of goes 
used by one. 

Goes back for another turn i 
you have had less than M goes, 

Prints if you have had M goes 
and no crash. 



Sub-routine for moving the 
cursor to the appropriate 
places for printing I and *. 



IF F f * 




\ 






Slowing down the 
game 

If this game is too fast for 
you, you can add a delay 
loop at lines 141 and 142: 

141 FOR J=l TO 100 

142 NEXT J 

Change the number in line 
141 to adjust the speed - 
the lower the number the 
faster the game. 




1 



i 

If 



V 



\ 



■% 




ur* 






1 








Puzzle corner 

ow can you make the 
valley longer? 



■ 




Space Mines 



L 




You are the newly elected leader of a mining 
colony on the Planet Astron. All decisions 
concerning the sale of ore to Intergalactic 
Traders, food purchase and sale and purchase of 
mines are made by you. Can you keep the people 
satisfied and survive your 10 years in office or 
will life in the colony end in disaster under your 
rule? 



*■▲• 



10 

20 
30 
40 

1,50 





L=INT<RND*3+5> 
LET P=INT(RND*60+40) 
LET M=INT(RND*50+10)*P 
LET FP=INT<RND*40+80) 
LET CE=INT(RND*40+80> 



60 LET C=0 



70 
80 

90 



LET 
LET 



S=l 
Y=l 



LP=INT (RND*2000+2000) 



A* 100 LET CP=INT(RND*12+7) 
▲•110 CLS 

" YEAR " ; Y 



e program works 

These lines decide the number of 
mines (L), number of people (P), 
amount of money (M), price of 
food (FP) and amount of ore 
produced per mine (CE) for the 
start of the game. 

Sets the amount of ore in 
storage to zero for start. 

Sets the satisfaction factor to 1. 
Sets the year number to 1 . 

Selects buying/selling price 
for mines. 

Selects selling price for ore. 




120 PRINT 
130 PRINT 
140 PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



150 
160 
170 
180 
190 



ll 



"THERE ARE 
"YOU HAVE 
"SATISFACTION FACTOR 



";P;" PEOPLE IN THE COLONY" 
;L; " MINES, AND *"M 



IT ■ 



;S 



ll 



YOUR MINES PRODUCED ";CE;" TONS EACH" 



LET C=C+CE*L 



200 PRINT 
210 PRINT 
220 PRINT 
230 PRINT 

240 PRINT 
INPUT 



250 
260 

270 

280 

290 
300 
310 
320 
330 



IF CS<0 OR 
LET C=C-CS 



"ORE IN ST0RE="jC;" TONS" 

"SELLING" 

"ORE SELLING PRICE=";CP 

"MINE SELLING PRICE=" ; LP; "/MINE" 

"HOW MUCH ORE TO SELL?" " 
CS 

CS>C THEN GOTO 240 



Prints current state 
of affairs in the 
colony. 



LET M=M+CS*CP 



PRINT "HOW MANY MINES TO SELL?" 

INPUT LS 

IF LS<0 OR LS>L THEN GOTO 290 

LET L=L-LS 

LET M=M+LStLP 



Asks how much ore you want 
to sell, puts it CS and checks 
you've got that much in store. 

1 Takes amount sold away 
from amount in store. 

Works out how much ore sold 
is worth and adds this to your 
money supply. 

Does the same process for 
selling mines. 



340 PRINT 

350 PRINT "YOU HAVE »" ; M 

360 PRINT 

370 PRINT "BUYING" 

380 PRINT "HOW MUCH TO SPEND ON FOOD ? 

390 INPUT FB 



Prints your new money supply. 



| Asks how 
(APPR. *100 EA. ) "I — much you 

—J want to 
spend on food and puts this in FB. 



400 IF FB<0 OR FB>M THEN GOTO 380 



24 



410 LET M=M-FB 



Checks you have enough 
money to pay. 

Adjusts your money supply. 









420 IF FB/PM20 THEN LET S= 
430 IF FB/P<80 THEN LET S=S 



s+. i"l 
-■ 2 J 




440 PRINT "HOW MANY MORE MINES TO BUY?" 

450 INPUT LB 

460 IF LB<0 OR LB*LP>M THEN GOTO 440 

470 LET L=L+LB — — ^^^^— ^— ^^^— 



480 LET M=M-LB*LP 



490 IF S<-6 THEN GOTO 660 



*1A«500 IF S>1.1 THEN LET CE=CE+INT (RND*20+1 ) 



510 IF S<.9 THEN LET CE=CE-INT (RND*20+1 ) 



520 IF P/L<10 THEN GOTO 680 



•■A#530 IF S>1.1 THEN LET P=P+INT <RND*10+1 ) 
540 IF S<.9 THEN LET P=P-INT (RND* 10+1 ) - 



550 IF P<30 THEN GOTO 700 



*■** 



MANY DIE" 



560 IF RND>.01 THEN GOTO 5^0 

570 PRINT "RADIOACTIVE LEAK 

580 LET P=INT(P/2) 

590 IF CE<150 THEN GOTO 620 

600 PRINT "MARKET GLUT - PRICE DROPS" 

610 LET CE=INT(CE/2) 



620 LET Y=Y+1 



630 IF Y<11 THEN GOTO 90 

640 PRINT "YOU SURVIVED YOUR TERM OF OFFICE 

650 STOP 

660 PRINT "THE PEOPLE REVOLTED" 

670 STOP 

680 PRINT "YOU'VE OVERWORKED EVERYONE" 

690 STOP 

700 PRINT "NOT ENOUGH PEOPLE LEFT" 

710 STOP 

The above listing will work on a ZX81. For 
other computers, make the changes below. 

•llO HOME 

AtlO PRINT CHR*(147) 
•±•10,20,30,40,50,90, 100, 5O0, 510, 530 ,540, 560 
change RND to RND ( 1 ) 
■1 , 20 , 30, 40, 50 , 90 , 1 00 , 500 , 510, 530 , 540 , 560 
change RND to RND(O) 

See page 2 for meaning o/*a ■ * 



■9 



•* F 



Adjusts satisfaction factor 
according to how much you 
spent on food. 

Asks how many mines you 
want to buy and checks you 
can afford them. 

Increases number of mines if 



ii 



Adjusts your money again. 

Checks on value of 
satisfaction factor. If this is 
very low, computer jumps to 
660 to end the game. 

If S is high then amount 
produced per mine is 
increased. 

If S low, amount produced is 
decreased. 

If there are less than 10 
people per mine, game is over. 

More people arrive if S is high. 
People leave if S is low. 

If there are less than 30 
people, game is over. 

Introduces small chance of 
half the people being killed. 

If the amount produced per 
mine is very high, ore price is 
halved. 

Year number increased by 1 
and if it is less than 1 1, 
computer goes back to 90 for 
another go. 

Prints if the computer 
reaches this stage in the 
program on your 1 Oth go. 







uzzle corner 



Can you make the 

computer ask if you would 

like another game and add 

the money you have ended 

up with to the new money 

supply for the next game? 
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■ 

Space Rescue 



You must make an urgent trip across the spiral arm of the Galaxy to a 
developing planet which is in need of medical supplies. The trip involves 
such huge distances that for most of it you will be in a deep sleep, but before 
this you must program the ship for the journey. The computer will ask how 
much energy you want to allocate to the engines, life support system and 
shields and then put you to sleep. 

When you wake up, it will give you a report on what happened during the 
trip and, if all went well, you will be orbiting the planet. You must now 
allocate your remaining energy to the landing boosters and shields in order 
to make a good landing on the planet. 
* If you accomplish the mission safely, you stand a good chance of being 
promoted to Space Admiral. Good luck! 



▲•10 CLS . 

1 - * ■ i 



20 PRINT ■ 
./ ■■■<■ 30 PRINT 

40 PRINT "DO YOU WANT INSTRUCTIONS? " - 
■>'. 50 INPUT I* 
•■▲•60 IF I*(1>="Y" THEN G0SU6 IOOO 
•■▲♦70 LET D=INT(RND*800+101) 
.•■▲•80 LET E=INT(RND*400+401) 

90 LET T=INT(D/SQR<E/5>+.5> '•'..' • 
.lOO PRINT "THE PLANET IS "iDj" UNITS AWAY" 

110 PRINT "YOU HAVE ";E;" UNITS OF ENERGY" 

120 PRINT "AND A TIME LIMIT OF ";T5" DAYS" 

130 PRINT ,"'.-" V 

140 PRINT "ENERGY DISTRIBUTION:". 
; ISO PRINT "TO ENGINES?" 

160 INPUT P .,''.'■ 

170 PRINT "TO LIFE SUPPORT?" 

180 INPUT L 

190 PRINT "TO SHIELDS?" 

200 INPUT S > 

210 IF P+L+S>E THEN GOTO 140 .. ' i 

220 LET X=E-P-L-S 

230 LET V=INT(SQR<P) > ; 

.240 LET T1=INT<D/V> : 



^•250 CLS 
" 260 PRINT 



260 PRINT "YOUR VELOCITY IS ";V 
270 PRINT "YOU HAVE AN ETA OF ";T1; 



- jLf Kf i~r\xiH 1 tljlj nnvt rm c 1 ■-■ ui~ 9 1 x f DAYS « 

280 PRINT 
•■▲•290 FOR 1=1 TO INT(RND*5+6> 
•■▲•300 IF RND>-5 THEN GOTO 430 
•■▲•310 GOTO 320+INT(RND*4)*30 ' ■ • •* 
»6 320 PRINT "ASTEROID STORM - SHIELDS DAMAGED 



■v * - 



•■±•330 LET S=S-20-INT(RND*40+lK 

• 340 GOTO 430 

350 PRINT "COMPUTER BREAKDOWN - DELAY IN REPAIRING" 

•■±•360 LET D=D+INT(RND*20+1> 
370 GOTO 430 
380 PRINT "ENGINE TROUBLE - MUST SLOW DOWN" 

. - 390 LET V=V-.5 •" r - : ' / :. 
."■ 4O0 GOTO 430 " 

410 PRINT "X-RAY DAMAGE - LIFE SUPPORT DAMAGED" 
420 LET L=L-20-INT(RND*40+l) . .-* ; 

•■±•430 FOR J=l TO 50 

440 NEXT J ;-■ -■•.•■ ...-'• ./. ■'.■. :..•■/. '••*■.•':/;,•■. ;*:.■•■- "'"!'" \- ';•':-: 
450 NEXT I '.".'; ■ '• ■■..., -.■■■'; ;-.' ; V 

.460 LET T1 = INT(D/V) ^ ■; -.V.? -"';'..' ^-./^-V- ■■ ^r-^ : -' : 
±•470 CLS •' ' ' ■ "' "" '"*:..". •'•"•.■' ■.;•,: ';,' ;.,f/-. : 

480 PRINT "ARRIVED IN "$T1; M DAYS" > 

.490 IF S<0 THEN PRINT "SHIELDS DESTROYED" -\ 
495 IF S<0 THEN PRINT "YOU WERE BLOWN UP" ' 
500 IF L<=0 THEN PRINT "LIFE SUPPORT INACTIVE" 

505 IF L<=0 THEN PRINT "YOU'RE DEAD" 

510 IF V<=0 THEN PRINT "ENGINES ARE NON-FUNCTIONAL" 
■■'.. 520 IF T1>T THEN PRINT "YOU TOOK TOO LONG ABOUT IT" 
530 IF S<0 OR L<=0 OR V<=0 OR T1>T THEN STOP 
•■±•540 LET G=INT<RND*10+5> . . . .* 

550 LET G*="HI6H" V 

: 560 IF G<12 THEN LET G*="MEDIUM" ','.'; 

570 IF G<8 THEN LET G*="LOW". ■' 
•■±•580 LET A=INT(RND*10+5> . . ; \ . '. 

590 LET A*-"HIGH" .' .' .' ' ..« 

600 IF A<12 THEN LET A*="MEDIUM" 
610 IF A<8 THEN LET A*="LOW" 

620 PRINT . \ 

630 PRINT "YOU ARE NOW ORBITING THE PLANET" - : 
640 PRINT "SURPLUS ENERGY="5X . . 
: 650 PRINT "GRAVITY IS "56* ' V 
.'■■■ 660 PRINT "ATMOSPHERE IS ";A* 

670 PRINT -. * ■. . *' . 

680 PRINT "HOW MUCH ENERGY TO BOOSTERS?" * . 

690 INPUT B ; ' -'■■ 

700 PRINT "HOW MUCH ENERGY TO HEAT SHIELDS?" 
710 INPUT S ■■■'-•■; ^ ,_ -•. : -;;'. V. * "' 

^20 IF B+S>X THEN GOTO 680 

".., ±$730 CLS ~ ■-. '-''V'' ; ;•■ ' '• ; '■• ■' ; "•■- .'-"•. '.'•;"/■■ :>'. -"•-.' ;"',•* 

.740 IF B>=G»10 THEN GOTO 770 . . ^ \ 



- - p, r . 

T - ■ ■ - + : m 1 ■ * ■ 

Program continued on next page. 

■ * ■ ■ ■ 
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■'»'';**> Space Rescue continued 



i *y + 



YOU MADE A NEW CRATER 
760 GOTO 840 . . " ' 

770 IF S>=A*10 THEN GOTO BOO 
780 PRINT "YOU MADE A WONDERFUL SHOOTING STAR" 
790 GOTO 840 

800 PRINT "YOU LANDED SUCCESSFULLY - WELL DONE 
810 IF X-S-B>25 THEN GOTO 840 
820 PRINT "PITY YOU DON'T HAVE ENOUGH" 
830 PRINT "ENERGY TO OPEN THE DOOR" 



1060 PRINT 
1070 PRINT 



840 STOP 
1000 PRINT 

' 1010 PRINT "YOU ARE ABOUT TO EMBARK ON A" 

1020 PRINT "MISSION TO A DISTANT PLANET" 

1030 PRINT "IN URGENT NEED OF MEDICAL" 

1040 PRINT "SUPPLIES- YOU MUST FIRST READY" 

1050 PRINT "YOUR SHIP FOR THE TRIP BY" 

1060 PRINT "ALLOCATING SOME OF THE SHIP'S" 

•1070 PRINT "ENERGY TO THE ENGINES, SHIELDS" 

, 1080 PRINT "AND LIFE-SUPPORT- YOU ARE" 

1090 PRINT "THEN PUT TO SLEEP FOR THE MAIN" 

1100 PRINT "PART OF THE TRIP, AFTER WHICH" 

1110 PRINT "YOU WILL GET A REPORT OF THE" 

1120 PRINT "EVENTS ON THE WAY- YOU MUST" 

1 1 30 PR I NT " THEN LAND ON THE PLANET 

1140 PRINT "PRESS ANY KEY" 
ia»1150 IF INKEY*="" THEN GOTO 1150 
A«U60 CLS 

1170 RETURN 



UOO PRINT 
1110 PRINT 



The above listing will work on a ZX81 . For 
other computers, make the changes below, 



■all RND to RND(O) •>,.' 
*A«all RND to RND(l) 

• 10,250,470,730,1160 HOME '. ... 

A10, 250, 470,730, 1160 PRINT CHR*(147) 
•■A»60 IF LEFT* (I*, 1)="Y" THEN GOSUB lOOO 
*ba»310 ON INT(RND*4+1> GOTO 320,350,380,410 
. *iA»430 FOR J=l TO 500 

•430 FOR J=l TO 1O0O 



•1150 I=GET 
•1150 GET I* 
a 1150 GET IS 



tl tl 



THEN GOTO 1150 
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Adding to the game 



This game is really made up of two parts. In the first part you set off on your 
space journey with the aim of orbiting the planet and in the second you 
attempt to land on the planet. You could perhaps try adding a third part in 
which you make the treacherous crossing from the landing site to the 
Intergalactic Red Cross H.Q. 
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Touchdown 

This game is different from the others in this book because it uses graphics. 
As the computers vary so much in the way their graphics work, there is a 
separate program for each one. Read the instructions on this page for how 
to play the game and then look through the pages that follow for the version 
for your computer. 

How to play Touchdown 

Ace space pilot, Captain Flash, is sitting next to you as you take the final 
part of your Advanced Spacecraft Handling Test (Part III). Your 
lightweight, two-man landing craft is rapidly approaching the Moon's 
surface. Your velocity must be almost zero as you touch down. Deftly you 
control the thrust, pressing A to increase it and D to decrease it*, watching 
your progress on the screen all the time. If you use too much thrust you will 
begin to go back up again. Too little and you will make a new crater on the 
Moon. Can you impress Captain Flash with your skill ? 

*For VIC, use the cursor down key to increase thrust and the cursor right 
key to decrease it. 




Touchdown: TRS-80 version 

20 CLS 

30 CLEAR 200 

31 B*=STRIN6*<25, 131) 

33 M1*=CHR*<194)+STRING*<2, 176> 

34 M2*=" "+STRING*<4, 191) 

35 M3*=CHR* < 1 3 1 ) +CHR* < 1 35 > +STR 1 NG* 
<2, 131)+CHR*(I39)+CHR*<131) 

40 GOSUB 250 

50 GOSUB 300 

60 C= 1 : GOSUB 390 

70 A= 1 : B=F : GOSUB 460 

80 A=2 s B=ABS < V ) : GOSUB 460 

90 A=3:B=H: GOSUB 460 

lOO A=4:B=T: GOSUB 460 

110 GOSUB 530 

120 Vl=V-T/20+G s F=F-T/iO 

130 H1=H-<V+V1)/10 

140 C=0: GOSUB 390 

ISO IF HKO THEN 200 

160 H=H1:V=V1 

170 IF H<=100 THEN 60 

1B0 GOSUB 590 

190 GOTO 220 

200 H=0:Ols GOSUB 390 

10 GOSUB 660 
220 END 

250 H=100:F=100:T=0 
260 V=INT(RND(0)*10+6) 
270 6=INT(RND<0)*40+41)/100 
280 RETURN 
300 FOR X=80 TO 127 
320 SET (X,47-INT(RND<0) *5) ) 
330 NEXT 

340 PRINT "GRAVITY=";G 
350 PR I NT 3192," FUEL : " 



355 PRINT 3384, "VELs " 

360 PRINT 3576, "HEIGHT: " 

365 PRINT 3768, "THRUST: " 

370 RETURN 

390 Y=818-64*INT(H/8) 

400 PRINT 3Y,j s IF C=l THEN PRINT 

Ml*; ELSE PRINT CHR* (196); 
410 PRINT 3Y+64, ; : IF C=l THEN 

PRINT M2*j ELSE PRINT CHR* 

(198); 
420 PRINT 3Y+128,; : IF C=l THEN 

PRINT M3*s ELSE PRINT CHR* 

(198) 
440 RETURN 
460 Y=<A*3+1>*64 
470 PRINT 3Y,CHR*<217> ; 
480 PRINT 3Y ? LEFT*fB*,B/4> : 

510 RETURN 

530 I*=INKEY* 

540 IF I*="A" THEN T=T+4 : IF 

TMOO THEN T=100 
550 IF I*="D" THEN T=T-4 : L 

T<0 THEN T=0 
560 IF T>F THEN T=F 
570 RETURN 
590 CLS 
600 FDR 1=1 TO 20 

610 PRINT 3INT(RND(0)*1024),"*" 
620 NEXT 

630 PRINT 3470,"L0ST IN SPACE M " 
640 RETURN 
650 CLS 
660 PRINT "LANDED AT VEL " 

INT( (V+V1)*5) /lO 
670 IF (V+V1X8 THEN PRINT "SAFELY 

ELSE PRINT "ALL DEAD" 
680 RETURN 









Touchdown : VIC 20 version 

20 PRINT CHR*U47)CHR*<5) ; 
75 POKE 36877,8 



SO DEF FNR(X>=INT(RND<1>*X+1> 
40 GOBUS 250 
50 BOSUB 300 
60 C~ 1 : GOSUB 390 
70 A=1:B=F: GOSUB 460 
30 A=2:B=ABS(V> : GOSUB 460 
90 A=3:B=H: GOSUB 460 
100 A=4:B=T; GOSUB 460 
1 10 GOSUB 530 

120 Vl=V-T/20+G ; F=F-T/10 
130 H1=H-*V+V1)/10 
140 C=0: GOSUB 390 
150 IF HKO THEN 200 
160 H=HljV=Vl 
170 IF H<=100 THEN 60 
ISO GOSUB 590 
190 GOTO 220 
200 H=0: C= 1 : GOSUB 390 
^10 GOSUB 660 
220 END 

250 H=100:F=100:T=0 
260 V=5+FNRtlO) 
270 G= < FNR ( 40 ) +40 ) / 1 OO 
280 RETURN 

300 FOR X=8178 TO 8185 
^20 POKE X,98+2*FNR<3) 
330 NEXT 

340 PRINT "GRAVITY=";G 
350 PRINT "(GjgFUEL : " 



390 Y=81 37-22* INT (H/5> 
400 IF C=0 THEN 425 
405 POKE Y,K»8 : POKE Y+ 1,123 
410 POKE Y+22, 160 s POKE Y+23, 160 
415 POKE Y+44,75 : POKE Y+45, 74 
420 GOTO 440 

425 FOR Z=0 TO 44 STEP 22 
430 POKE Y+Z,32 : POKE Y+Z+1,32 
435 NEXT 
440 RETURN 
460 FOR X=0 TO 9 
470 Y=A*88+X+7724 

480 IF X<B/10 THEN POKE Y,102 : 
GOTO 500 

485 IF X<B/10+.5 THEN POKE Y,9L _ 

GOTO SOO 
490 POKE Y,32 
SOO NEXT 
510 RETURN 
530 BET I* 
540 IF I*="|ffl" THEN T=T+4 s IF T>100 

THEN T=100 
550 IF I*="H" THEN T=T-4 : IF KO 

THEN T=0 
560 IF T>F THEN T=F 
570 RETURN 
590 PRINT CHRt(147) 
600 FOR 1=1 TO 20 
610 POKE 7679+FNR(506>,42 
620 NEXT 

630 PRINT "LOST IN SPACE'!" 
640 RETURN 

650 PRINT CHR* < 1 47 > "LANDED" 
660 PRINT "AT VEL " ; INT ( (V+Vl ) *5> /lO 
670 IF <V+V1><8 THEN PRINT "SAFELY" 

: RETURN 
6BO PRINT "ALL DEAD" : RETURN 



[Qj is cursor down key 
\J\ is cursor right key 



355 PRINT 



EL: 



360 PRINT " BBHH EIGHTs" 
365 PRINT "KfflTHRUST: " 
370 RETURN 







Touchdown: ZX81 version 




20 CLB 

30 LET B*="C 66666666666666666666 1 

40 GDSUB 250 

50 GOSUB 300 

60 LET C=l 

65 GOSUB 390 

70 LET A=l 

75 LET B=F 

77 GOSUB 460 

BO LET A=2 

85 LET B=ABS<V> 

37 GOSUB 460 

90 LET A=3 

95 LET B=H 

97 GOSUB 460 

100 LET A=4 

105 LET B=T 

107 GOSUB 460 

110 GOSUB 530 

120 LET Vl=V-T/20+6 

125 LET F=F-T/10 

130 LET H1=H-(V+V1)/10 

140 LET C=0 

145 GOSUB 390 

150 IF HKO THEN GOTO 200 

160 LET H=H1 

165 LET V=V1 

170 IF H<=100 THEN GOTO 60 

1BO GOSUB 590 

190 GOTO 220 

200 LET H=0 

205 LET C=l 

207 GOSUB 390 

210 GOSUB 660 
STOP 

250 LET H=100 

252 LET F=100 
55 LET T=0 

260 LET V=5+INT(RND*10+1) 

270 LET 6=INT(RND*40+40>/100 

280 RETURN 

300 PRINT AT 21 , 20; " [SDADSADASn " 
340 PRINT AT O, O; "GRAVITY=" j G 
350 PRINT AT 3, O; "FUELs H 
355 PRINT AT 7,0;"VEL:" 
360 PRINT AT 11,0; "HEIGHT:" 
365 PRINT AT 15, O; "THRUST: " 
370 RETURN 
.390 LET Y=(100-H) /6+1 
400 IF C=0 THEN GOTO 425 
405 PRINT AT Y,24;"C34I" 
410 PRINT AT Y+1,23;"CQ 
415 PRINT AT Y+2, 23; " CT6GY1 " 
420 GOTO 440 
425 PRINT AT Y,24;" 
430 PRINT AT Y+1,23;" 
435 PRINT AT Y+2, 23;" 

440 RETURN SPACES) 

460 LET Y=A*4 t 
470 PRINT AT Y,0; M> 
-,480 PRINT AT Y,0;B*( TO B/5) 




510 
530 
540 
545 
550 
> 

560 
570 
590 
6O0 
610 

620 
630 
640 
650 
660 

670 
675 

680 



RETURN 

LET I*=INKEY« 

IF I»="A" THEN LET T=T+4 

IF T>100 THEN LET T=100 



IF I*="D" THEN LET T=T-4 

IF T<0 THEN LET T=0 

IF T>F THEN LET T=F 

RETURN 

CLS 

FOR 1=1 TO 20 

PRINT AT INT(RND*22), 

INT(RND*32) ;"»" 

NEXT I 

PRINT AT lO, 10;"L0ST IN SPACE" 

RETURN 

CLS 

PRINT AT 20,0; "LANDED AT VEL " 

; INT( <V+V1 )*5>/10 

IF (V+V1X8 THEN PRINT "SAFELY 

IF (V+V1)>=8 THEN PRINT 

"ALL DEAD" 

RETURN 



(20 SPACES) 

.S. 



Special notefor 
ZX81 users 

Graphic characters ar& shown 

in the lieting using the 

following convention- A *E* 

character 

GRAPHICS key, and then type 

the following 1 etters /number 

SHIFTED until 

reached, when 

GRAPHICS key again, 

back to normal - 







Touchdown : ZX Spectrum version 

20 CLS 

30 DEF FNr (x > =INT <RND*x+l > 

40 GOSUB 250 

50 GOSUB 300 

60 LET c=0: GOSUB 390 

70 LET a=ls LET b=f : LET c=2*(f<25) 

75 GOSUB 460 

BO LET a=2: LET b=ABS v: 

LET cMt'(v<0) 
85 GOSUB 460 

90 LET a=3: LET b=h: LET c=2*(h<2 
95 GOSUB 460 

100 LET a=4s LET b=t: LET c=0 

105 GOSUB 460 

110 GOSUB 530 

120 LET vl=v-t/20+g: LET f=f-t/10 

130 LET hl=h-(v+vl>/10 

140 LET c = l: GOSUB 390 

150 IF hl<0 THEN GOTO 200 

160 LET h=hl: LET v=vl 

170 IF h<=10O THEN GOTO 60 

180 GOSUB 590 

190 GOTO 220 

200 LET h=Os LET c-O: GOSUB 390 

210 GOSUB 650 

220 STOP 

250 LET h=100: LET f=100i LET t=0 

260 LET v=5+FNr(10) 

270 LET G=(FNr (40J+40) /100 

280 RETURN 

300 PLOT ISO, 8 

310 FOR x = l TO 15 

320 DRAW 5,FNr<3)-2 

330 NEXT x 

340 PRINT "Gravity=";g 

350 PRINT ""Fuels """"Veil" 

360 PRINT * ""Height:"" " "Thrusts ' 

370 RETURN 

390 INVERSE c 

400 LET y=h*1.3+10 



410 PLOT 200, y: DRAW 34, 

420 DRAW -4,20: DRAW -13, 10 

430 DRAW -13, -lO: DRAW -4,-20 

440 RETURN 

460 LET y=172-a*32 

470 INK c 

480 PLOT 0,y 

490 DRAW b,0 

50O DRAW INVERSE l,100-b,0 

510 RETURN 



530 LET i*=INKEY* 

540 IF i*="a" THEN LET t=t+4 

IF t>100 THEN LET t=100 
550 IF i*="d" THEN LET t=t-4 s 

IF t<0 THEN LET t=0 
560 IF t>f THEN LET t=f 
570 RETURN 
590 CLS 

600 FOR i=l TO 20 
610 PRINT AT FNr (21), FNr (31);"*" 

620 NEXT i 

630 PRINT "Lost in space!!!" 

640 RETURN 

650 PRINT AT 0,0; "Landed at " 

INT( (v+vl>*5)/10' 
660 IF (v+vi)<B THEN GOTO 680 
670 PRINT "All dead": RETURN 
680 PRINT "Sa-Fely": RETURN 













# 
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Touchdown: BBC version 



2C MODE 5 

30 *FX 12, 1 

40 PROCSETVAR 

50 PROCDISPLAY 

60 PROCMODULE<H,3> 

70 PROCBAR<l,F,3+2*<F<25> > 

80 PROCB AR ( 2 , ABSV , 3 + ( V < ) ) 

90 PROCBAR<3,H,3+2*<H<25> 

iOO PROCBAR<4,T,3> 

1 1 O FROCTHRUST 

120 V1=V-T/20+G s F=F-T/10 

130 H1=H-<V+V1> /10 

1 40 FROC MODULE < H , O > 

150 IF HKO THEN 200 

160 H=H1:V=V1 

170 IF H<=lpO THEN 60 

ISO PROCLOST 

190 SOTO 220 

200 PROCMODULE(0,2) 

210 PROCLANDED 

220 *FX 12 

230 END 

240 DEF PROCSETVAR 

250 H=100:F=100sT=0 

260 V=5+RND(10) 

270 G=(RND<40)+40>/100 

2B0 ENDPROC 

290 DEF PROCDISPLAY 

30O MOVE BOO, 30 

310 FOR X=800 TO 12B0 STEP 

320 DRAW X,10+RND(40> 

330 NEXT 

340' PRINT "GRAVITY=";G 

350 PRINT " ' * "FUEL: 

l&O PRINT * * " ' "HEIGHT : "' * 

370 ENDPROC 

3BO DEF PRDCMODULE<H,C) 

390 GCOL , C 

400 Y=H*8.5+150 

410 MOVE 1040,Y : PLOT 1,- 

420 PLOT 1,-8,-feO : PLOT 1 

430 PLOT 1,-8, 60 : PLOT 1 , 

440 ENDPROC 

450 DEF PROCBAR<N, V,C> 

460 Y=1000-192*N 

470 GCOL 0,C 

430 MOVE 0,Y : MOVE 0,Y-16 



PLOT 85,V*4,Y-16 
PLOT 87,400.Y-16 



16 



490 PLOT B5,V»4,Y 

5O0 PLOT 87, 400, Y : PLOT 87,400,Y-16 

510 ENDPROC 

520 DEF PROCTHRUST 

530 *FX 15, 1 

540 IF INKEY(-194) THEN T=T+4 ; 

IF T>100 THEN T=100 
550 IF INKEYC-179) THEN T=T~4 : 

IF T<0 THEN T=0 
560 IF T>F THEN T=F 
570 ENDPROC 
580 DEF PROCLOST 
590 CLS 

600 FOR 1=1 TO 20 
610 VDU 31,RND(19),RND(31) ,42 
620 NEXT 

630 PRINT TAB < 4, 16) "LOST IN SPACE?!" 
640 ENDPROC 
650 DEF PROCLANDED 
660 VDU 28,0,31,11,0,12 
670 PRINT '"LANDED" 

680 PRINT '"AT VEL "; INT < (V+Vl > *5> /10 
690 IF (V+V1X8 THEN PRINT '"SAFELY" 

ELSE PRINT ' "ALL DEAD" 
700 ENDPROC 



"VEL: " 

* ' ' "THRUST: "' * 




40, -40 
,96,0 
-40, 40 








- * - 



.. *■■* 
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Touchdown: Apple version 

5 HOME 
20 HBR 

30 DEF FNR(X)=INT(RND(1)*X+1) 
40 BOSUB 250 
SO BOSUB 300 
60 C=3: BOSUB 390 
70 A=1:B=F: BOSUB 460 
SO A=2 : B= AB5 ( V > : BOSUB 460 
90 A=3:B=H: BOSUB 460 
lOO A=4:B=T: BOSUB 460 
110 BOSUB 530 

120 Vl=V-T/20+B : F=F-T/10 
130 H1=H-<V+V1 )/10 
140 C=0: BOSUB 390 
150 IF HKO THEN 200 
160 H=H1:V=V1 
170 IF H<=100 THEN 60 
ISO BOSUB 590 
190 60T0 220 
200 H=0:C=3: BOSUB 390 
210 BOSUB 660 
220 END 

250 H= 1 OO : F= 1 OO : T=0 
260 V=5+FNRdO) 

70 B=(FNR<40)+4O)/100 

BO RETURN 
3O0 HCOLOR=3 
305 HPLOT O, 155 






_: 1 

320 
330 
335 

S37 
340 
350 

360 
370 
390 
400 
410 
420 

430 
435 
437 

440 
460 
470 
480 
490 
500 
510 
530 

540 

55o 

560 
570 
590 
600 

640 
660 
670 

680 
690 
700 



HTAB 8 



FOR X=0 TO 279 STEP 5 

HPLOT TO X, 159-FNRdO) 

NEXT 

FOR 1=1 TO 30 : HPLOT FNR(279), 

FNRU50) 

NEXT 

VTAB 21 : PRINT TAB (34) ; "6=" ; B 

VTAB 21 : PRINT "FUEL:" : 

PR I NT " VEL : " 

PRINT "HEIBHT:" : PRINT "THRUST:"; 

RETURN 

HCOLOR=C 

Y=(100-H>*1.3 

HFLOT 140, Y TO 120,Y+10 

HPLOT TO 120,Y+20 : 

HPLOT TO 160,Y+20 

HPLOT TO 160, Y+IO s HPLOT TO 140,Y 

HPLOT 155,Y+20 TO 160,Y+25 

HPLOT 125,Y+20 TO 120,Y+25 

RETURN 

VTAB (20+A) : HTAB 8 

INVERSE 

FRINT SPC(B/1> ; 

NORMAL 

PRINT SPC<26-B/4); 

RETURN 

1*="" : IF PEEK (-16384) >1 27 

THEN BET I* 

IF I*="A" THEN T=T+4 s 

IF TMOO THEN T=100 

IF I*="D" THEN T=T-4 I 

IF T<0 THEN T=0 

IF T>F THEN T=F 

RETURN 

HOME : VTAB 23 

PRINT "LOST IN SPACE!!" 

RETURN 

HOME : VTAB 22 

PRINT "LANDED AT VEL " 

INT( (V+VD45) /lO 

r 

IF (V+V1X8 THEN 700 
PRINT "ALL DEAD" : RETURN 
PRINT "SAFELY" : RETURN 



I 




'"^S-'ttefe- 



Adding to the programs 



Here are some ideas for additions 
you can make to the programs in 
this book or to your own programs. 
In most cases you won't be able to 
add these to a ZX81 with only 1 K as 
the games themselves fill almost all 
its memory space, but you should 
find there is plenty of room on the 
other computers. 

Remember you will either have to 
restrict your additions to the spare 
line numbers in a program or 
renumber the program. If you 
decide to renumber, take care you 
change all the GOTO and GOSUB 

lines too. 

■ 

Getting the computer to tell you 
how to play 

You can add a 

section to any 

program to make 

the computer print 

instructions telling 

you what to do. The 

easiest way to do 

this is to add some lines, such as those 

below, at the beginning of the 

program and then put a sub-routine at 

the end. 



iO PRINT "TITLE OF GAME" 

11 PRINT "DO YOU WANT TO 

12 PRINT "KNOW HOW TO PLAY' 
15 INPUT I* 

S2X17 IF I*(1)="Y" THEN GOSUB lOOO 
*BA#17 IF LEFT»(I», 1)="Y" THEN BOSUB lOOO 



Making the computer 
stop and wait for you 




If your instructions are very long, you 
may want to insert this sub-routine 
which stops the program running at a 
particular point until you press a key. 
This way you can stop the instructions 
scrolling off the top of the screen 
before you have read them. Put a 
GOSUB line at the place you want the 
program to stop and then put this sub- 
routine at the end. 

lOOO PRINT "PRESS A KEY TO CONTINUE 
SZXIOIO IF INKEY*= M " THEN GOTO IOIO 
*T010 I*=GET* 




#1010 GET I* 
A1010 GET I* 
1020 PRINT 
1030 RETURN 



IF 1*="" THEN GOTO IOIO 



Making the computer "talk" to 
you 




ti 



ii 
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main program goes here 

1000 PRINT "WHAT YOU HAVE TO" 

IOIO PRINT "DO IS " 

1999 RETURN 

You can add as many print statements 
as you like for the instructions, just 
remember to put a number and the s 
word PRINT at the beginning of each *■ 
one. Restrict the length of the part 
inside the quotation marks to the 
number of characters your computer 
can print on one line. Don't forget to 
put a RETURN line at the end or the 
program won't work. 



You can make the computer ask you 
questions and react to your answers. 
For instance, here is an addition which 
will make the computer refuse to play 
with you unless your name begins with J. 
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1 PRINT "WHAT IS YOUR NAME 

2 INPUT I* 

3 IF I$(1X>"J" THEN GOTO lOOO 

3 IF LEFT* (I*, 1 J <>"J" THEN GOTO 1000 

4 PRINT "OK-YDU CAN PLAY," 

5 PRINT "ARE YOU READY^ 11 

6 INPUT J* 

2X7 IF J*(1X>"Y" THEN GOTO 5 

A#7 IF LEFT*(J* f 1 )<>"Y" THEN GOTO 5 



main program here 



1000 PRINT 
IOIO PRINT 
1020 PRINT 
1030 PRINT 



"SORRY THIS SAME IS" 
ONLY FOR PEOPLE" 
WHOSE NAMES BEGIN" 
WlTH J" 



!■ 



* p 



M 



Here is another one where the 
computer dares you to be brave 
enough to play. 



10 PRINT 
12 PRINT 

14 PRINT 

15 PRINT 

16 INPUT 



"VERY SCAREY GAME" 
"ARE YOU BRAVE ENOUGH" 
"TO TACKLE THE GREEN" 
"HAIRY MONSTER?" 

I* 

S ZX17 IF I*(1>="Y" THEN GOTO 20 
^■▲•17 IF LEFT* (I*, 1)="V" THEN GOTO 20 

18 PRINT "COWARD" 

19 STOP 

You could combine this with the 
instruction sub-routine by taking lines 
1 1 to 17 from the instructions section 
on this page and putting them at lines 
20 to 26 of this program. You can then 
start the main program at line 30 and 
add the instruction sub-routine at the 



cases you can add a single line to your 
program at the place you want the 
sound. In others, you need several 
lines and it is best to put these in as a 
sub- routine. 

As an example, here is the sound of 
a shot for the BBC. You can experiment 
with where to put it in the program, but 
you must give it a line number to make 
it work: 

SOUND 0,-15,5, 10 

At the back of the VIC manual you 
will find some useful sub-routines for 
sounds such as "laser beam", 
"explosion" and "red alert". Put a 
GOSUB line where you want the sound 
to appear, number the sub- routine and 
add a RETURN at the end of it. 



Would you like another go? 

Instead of typing RUN each time you 
play a game, you can make the 
computer ask you if you'd like another 
go. Put these lines at the end of the 
program, just before the last STOP 
statement. 

lOOO PRINT "DO YOU WANT ANOTHER GO? 

1010 INPUT I* 

SZX1020 IF I*(1)="Y" THEN RUN 

*BA#1020 IF LEFT*( I*, 1)="Y" THEN RUN 

1030 PRINT "OK THEN - BYE" 

1040 STOP 



Change line 
numbers according 
to your program. 



fi 




Adding sound effects 



The BBC, VIC 20, ZX Spectrum and 
some Apples are able to produce 
sounds and you can add lines to your 
programs to make them do so at 
appropriate places. You could add an 
explosion for instance, or a little tune 
which plays if you win. All the 
computers need different instructions 
to make sounds though, so you will 
have to look at your manual. In some 




Special note for BBC and a^V, 
Spectrum users ^^ 

If you have a BBC or a ZX Spectrum 
you may find that some of the games 
in this book run too fast for you. You 
will find a box next to these games 
containing instructions for 
changing the speed. Remember, to 
slow the game up you always need 
to use a higher number. Later 
models of the BBC may run up to 
twice as fast as the earlier models, 
and this could make the games 
appear impossible on the first run. 
Be prepared to make big changes 
to the speed number to correct this. 
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Writing your own programs 

As you work through the games in 
the book, you will probably find 
yourself making more and more 
changes to them and eventually 
wanting to write new games of your 
own. On these two pages you will 
find some hints on how to set about 
doing this. 

Before you start, it is a good idea to 
stop and think about what your 
computer can and cannot do. 




It can ask you for information, 




It can store information 




* It can select numbers at random by 
using RND. 




It can do calculations. 



* It cannot do anything unless you tell it 
to. 



*It can make decisions by comparing 
items of information in various ways 
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*It can tell you the results of its 
calculations and decisions and also 
what is stored in its memory. 



*Provided you use its language 
correctly, it can do only exactly what 
you tell it, even if it is silly. 

Remember, when you are trying to 
work out a game , not to include • 
anything which your computer won't 
be able to do. 



Planning a game 

■ 

- 

Before you can tell the computer how 
to play your game, you must know 
exactly how to play it and what the 
rules are yourself. The computer will 
need a series of simple logical 
instructions, so work out your game in 
your head or on paper first and then 
break it down into simple steps. 

Next write a plan (in English - don't 
try to use BASIC yet) of all the stages of 
the game in order. 

Here is a plan for a simple shooting 
game, such as firing cannon balls at a 
pirate ship or shooting laser beams at 
an alien invader, to give you an idea. 





PLAN 

j) Print title and 

INSTRUCTIONS 

2) CHOOSE A TARGET 
FOR THIS GAtAE 

3) BEGIN A LOOP TO 
GIVE THE PLAYER 
N 

40$ET A SHOT FROM 
THE PLAYER 

5) CHECK IF SHOT IVAS 

ON TARGET 

6) PRINT MESSAGE 
DEPENDING ON 
ACCURACY OP SHOT 

7) <j0 SACK FOR 
ANOTRtR qo IF SHOT 






WAS UNSUCCESSFUL 






Writing the program 

r 

The next stage is to convert your plan 
into BASIC. Each step in your plan may 
need several lines in BASIC. Don't 
forget to leave gaps when numbering 
your program lines so you can go back 
and add extra ones if you need to. 

Do a first draft of the program on 
paper first and then start testing on the 
computer. Your computer will spot 
errors much more quickly than you 
will see them yourself and may give 
you a clue as to what is wrong. 
Remember that debugging programs 
is a long, tedious process even for 
expert programmers, so don't expect 
to get yours right first time. 





Once you have got the core of the 
program working, you can add to it. 
Scoring, extra comments, more 
targets etc. can all be incorporated 
later. You could add sections from the 
programs in this book to your games. 

Don't expect to be able to write 
exciting and original games straight 
away. Keep your ideas very simple 
and be prepared to adapt them as you 
go along. You may find you have 
included something in your game 
which is easy for humans to do but 
very difficult for a computer. As you 
get more experienced you will begin 
to know instinctively what your 
computer can do and find it easier to 
write programs for it. 
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Summary of BASIC 



This section lists some common BASIC words and describes what they 
make the computer do and how they are used. Most of them have been used 
in the programs in this book, so you can check back through the book to see 
how they work in a game. Not all the words can be used on all the 
computers mentioned in this book. The conversion chart on page 46 shows 
what you can use instead. 



LET tells the computer to label a section of its 
memory and put a particular value in it e.g. LET 
A= 6 means label a section of memory "A" and put 
the value 6 in it. "A" is called a "variable" and putting 
something in it is called "assigning a value to a 
variable". 

Some variable labels are followed by a dollar 
sign e.g. A$. This means they are for "strings", 
which can contain any number of characters, 
including letters, numbers and symbols. 





PRINT tells the computer to display things on the 
screen and you can use it in several ways: 

A message enclosed in quotation marks with 
PRINT in front of it will be displayed on the screen 
exactly as you typed it. The section inside quotes 
does not have to be in BASIC, it can be anything you 
like. 

PRINT followed by a variable label e.g. PRINT A 
or PRINT A$ tells the computer to display the 
contents of that variable on the screen. 

PRINT can also do calculations and then display 
the results e.g. PRINT 6*4will make the computer 
display 24. 

You can use PRINT by itself to leave an empty 
line. 
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RND tells the computer to choose a number at 
random. Different computers use different forms of 
RND and you can see what these are in the 
conversion chart on page 46. On Sinclair computers 
ND by itself produces a number between and 
.99999999. You can vary the limits of the number it 
chooses by multiplying RND and adding to it. E.g. 
RND* 20 produces a number between and 
19.99999999, while RND*20+ 1 produces a number 
between 1 and 20.99999999. 
See INT for how to produce only whole numbers. 
See CHR$ for how to produce letters and other 
keyboard characters at random. 



INT is short for integer, which means whole 
number. For positive numbers, it tells the computer 
to ignore everything to the right of the decimal 
point. E.g. INT(20.999) is 20. For negative numbers, 
it ignores everything to the right of the decimal 
point and "increases" the number to the left of it by 
onee.g.INT(-3.6)is-4. 

INT is often used with RND, like this: 
INT(RND*20+ 1) which tells the computer you want 
it to choose a whole number between 1 and 20. 



CHR$ converts numbers into letters. Apart from the 
ZX8 1 , all the computers in this book use the 
ASCII* set of keyboard characters in which each 
character corresponds to a certain number. E.g. 
letter A has the code number 65 and PRINT 
CHR$(65) will display an A on the screen. 

You can use CHR$ with INT and RND to make the 
computer select random letters, like this: 

CHR$(INT(RND*26+65)) 
This line will produce random letters on aZX 
Spectrum (see conversion chart for other 
computers). 





FOR is used to start a "loop" which will make the 
computer repeat part of a program a certain 
number of times. It must be followed by a variable 
(such as G to stand for the number of goes allowed 
in a game), and the variable must be given start and 
end values (such as 1 TO 10.) 

The end of the loop is marked by a NEXT line 
(NEXT G in this example) which increases the value 
of the variable by 1 each time and then sends the 
computer back to the FOR line again. When the 
variable reaches its end value, the computer 
ignores the NEXT line and carries on to the line ' 
which follows it. Every FOR must have a NEXT or 
you will get a bug. 




INPUT labels a space in the computer's memory, 
prints a question mark and then waits for you to 
type something which it can put in this memory 
space. It will not carry on with the rest of the 
program until you press RETURN, ENTER or 
NEWLINE. 

You can use number or string variables with 
INPUT, but if you use a number variable the 
computer will not accept letters from you. 




* American Standard Code for Information In terchange (see page 45) 




INKE Y$ checks the keyboard to see if a key is 
being pressed and if so which one. It does not wait 
for you to press a key like INPUT does. It is usually 
used in a loop which makes the computer go round 
checking the keyboard lots of times. This is 
because computers work so quickly, you wouldn't 
have a chance of pressing a key in the time it takes 
the computer to do one check. 

If you haven't pressed a key before the loop 
finishes, the computer carries on with a string 
containing nothing (called a "null" string). 
NB Apple and VIC do not use INKE Y$. 



GET is used instead of INKE Y$ on VIC and Pet 

computers. 



GOTO makes the computer jump up or down the 
program ignoring the lines in between. You must 
put the number of the line you want it to jump to 
after the GOTO instruction. 



GOSUB tells the computer to leave the main 
program and go to a sub-routine. GOSUB must be 
folowed by the number of the first line of the sub- 
routine. At the end of the sub-routine you must have 
a RETURN line. This sends the computer back to 
the main program to the line immediately following 
the GOSUB line. A GOSUB without a RETURN in a 
program will give a bug. 
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IF . . . THEN tells the computer to decide if an 

expression is true or false, and do different things 
depending on the answer. It is used with the 
following signs, and also with AND or OR: 

= the same as 

<less than 

> greater than 
< =less than or the same as 
> = greater than or the same as 
Onot the same as 

If the computer decides an expression is true, it 
carries on to do the instruction which follows • 
THEN. If it decides it is false, it ignores the rest of 
that line and goes on to the next one. 



CLS is used to clear everything off the screen 
without removing or changing anything in the 
memory. It is useful for removing the listing from 
the screen at the beginning of a RUN or in games 
when you want the player to react to something 
seen for a limited amount of time. (NB Apple and 
VIC do not use CLS - see conversion chart). 




HOME is used by Apple computers instead of CLS 
to clear the screen. 




ABS ignores plus and minus signs in front of 
numbers and takes their "absolute" values. E.g. 
ABS(-10)isl0andABS( \ 10) is also 10. 




VAL takes the numeric value of numbers written as 
strings. In effect, it tells the computer to ignore the 
dollar sign and treat the string as an ordinary 
number variable. E.g. if I$="60" then VAL(I$) is the 
number 60. 




ASC converts a character into its ASCII code 

number e.g. ASC("3") gives 51. The expression in 

brackets must be a string e.g. ASC( A$) or 

ASC("20"). 

NB ZX8 1 and ZX Spectrum do not use ASC, though 

the Spectrum does use the ASCII code. 



CODE is used by ZX8 1 and Spectrum in place of 
ASC. Like ASC it must always be followed by a 
string. Remember that the ZX81 uses different code 
numbers from the other computers. 



TAB moves the cursor across the screen to a 
specified column number. It is usually used with 
PRINT to display something in the middle of the 
screen. The number of spaces you want the cursor 
moved is put in brackets after TAB. The maximum 
number you can use depends on the screen width 
of your computer. 
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SGN tells the computer to find out the sign of a 
number. It produces - 1 for a negative number, 
for zero and + 1 for positive numbers. E.g. 
SGN(-30)is - 1, SGN(7) is + 1 andSGN(O) isO. 

DIM tells the computer how much memory space 
will be needed for an "array" (a row or a grid). E.g. 
DIM X(6) tells the computer to set aside an area 
large enough to contain a row of 6 elements and 
labelled X. DIM A(8,8) means a memory space 
labelled A and big enough to take 8 elements 
across and 8 down is needed. The number of 
elements of data used in the program must 
correspond to the numbers in brackets after DIM 
or you will get a bug. 

SQR takes square roots of numbers. E.g. SQR( 16) 
gives the answer 4. 

SIN calculates the sine of an angle. In anght-anglec 
triangle the length of the side opposite an angle, 
divided by the length of the hypotenuse (the side 
opposite the right angle) is the sine of that angle. 
When you use SIN in a program, the angle you are 
using it with must be measured in radians, not 
degrees. 

ATN is one of the trig, functions which computers 
can calculate (see also SIN above). It stands for 
arctangent and it is important to remember that it 
gives an answer in radians, not degrees. You will 
need to use a maths book to find out how this works 
if you do not already know about it. 



STOP tells the computer not to go any further in a 
program. Computers other than the ZX8 1 can use 
END instead. 

PEEK is a way of finding out what is in a specific 

area of the computer's memory. You need to use it 

with a number which specifies an "address" in the 

memory. 

NB not used on BBC. 



POKE is a special way of putting information in the 
computer's memory by using a memory "address". 
NB not used on BBC. 



ASCII chart 



ZX81 code chart 
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Answers 



You may find that your answers to 
some of the puzzles are different to 
the ones given here. As long as they 
work on your computer then this 
doesn't really matter, but check to . 
see if they are as neat and simple as 
the answers in the book. 

Page 5 
Starship Takeoff 

Lines 30 and 40 select the numbers 
which determine what the force will 
be. To increase the range of possible 
forces, you can increase either the 20 
in line 30, or the 40 in line 40, or both of 
these numbers. Increasing the range 
of forces will obviously make the 
game more difficult. 

Page 7 
Intergalactic Games 

Change lines 222 and 230 as follows: 



222 LET B=B+INT<1000/G) 
230 GOTO 20 

and add a new line 15: 

15 LET B=0 



Page 9 
Evil Alien 

Change lines 20 and 30 and add anew 
line 25 as follows: 



20 PR TNT "HOW DIFFICULT? (& TO 30) " 

25 INPUT S 

30 LET G=INT(S/3> 



Page 1 1 

Beat the Bug Eyes 

To make the bugs appear in more than 
four places on the screen, you need to 
put a higher number than 4 in the 
middle of line 70, change line 80 and 
add more sub-routines at the end of 
the program - one for each extra 
position. 



Here are the changes to make the 
bugs appear in 5 places: 

70 LET R=INT(RND*5+1 > 

SZX80 GOBUB 220+20tR 

■▲•80 ON R GOSUB 240,260,280,300,320 



240 
245 

250 
260 
265 
270 
280 
285 
290 
300 
305 
310 
320 
325 
330 



LET D=5 
LET A^l 
GOTO 350 
LET D=l 
LET A=7 
GOTO 3SO 
LET D=5 
LET A=18 
GOTO 350 
LET D=10 
LET A=7 
GOTO 350 
LET D=15 
LET A=15 
GOTO 350 




To add more bugs, change the 10 in 
lines 30 and 220 to a higher number. 
(Make sure you use the same number 
for both lines,) 

Page 13 
Moonlander 

To increase the speed allowed for a 
safe landing, you need to make 
changes to lines 230, 240 and 250. You 
can use any numbers you like - the 
higher they are the easier the game 
will be. In this example, you are 
allowed a speed of 2 for a good 
landing and 7 for an OK landing: 

230 IF VI >7 THEN PRINT "YOU CRASHED 

- ALL D£AD" 
240 IF VI >2 AND VI<=7 THEN PRINT "OK 

-BUT SOKE INJURIES" 
250 IF Vl<=2 THEN PRINT "GOOD LANDING 
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Monsters of Galacticon 

Four ways of making this game harder 
are: 

1 Start the game with less people in 
the group by putting a smaller number 
than 5 in line 40. 

2 Increase the number of monsters by 
changing the 4 in lines 20 and 30. Add 



n 
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extra monster names at lines 8 1 to 89 
using M$(5) and M$(6). 

3 Reduce the number of goes allowed 
by altering the 8 in line 160. 

4 Increase the chance of the monster 
being angered in line 330 by 
increasing .4 a little. 

Page 17 
Alien Snipers 

In this game, N is the code number. To 
change the scoring to fit the code 
number you need to increase the 
score by N each time instead of 1. So, 
change line 1 90 as follows : 

SZX190 IF I*=CHR*(CODE<L*)+N) THEN 

LET S=S+N 
• ■A#190 IF I*=CHR*<ASC<L*)+N> then 

LET S=S-HM 

Page 19 
Asteroid Belt 

You need to change line 260 so that the 
computer adds the number of stars to 
your score instead of 1 . The number of 
stars is controlled by the value chosen 
for N in line 70, so, as in the puzzle 
above, you need to add N to the score. 
You also need to change line 320. 



260 LET S=S+N 

320 PRINT "YOU SCORED 
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Page 21 

Trip into the Future 

i 

1 To increase the range of years 
which must elapse before you return 
to Earth, change the 100 in line 30 to a 
higher number, e.g. 150, like this: 

30 LET T=INT(RND*150+25) 

2 To increase the accuracy from 5 to 2 
years, change the 5s in lines 180 and 
190 to 2, like this: 

ISO IF ABSCT-T2)<=2 THEN PRINT "YOU 

ARRIVED ON TIME" 
190 IF ABS(T-T2)>2 THEN PRINT "NOT 

EVEN CLOSE" 



3 Line 170 contains the number which 
determines the length of your lifetime. 
Change the 50 to a higher number for a 
longer lifetime. 
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Death Valley 

You can make the valley longer by 
changing the number in line 30 to 
something higher than 200. 

Page 25 
Space Mines 

Add these lines to make the computer 
ask if you would like another game: 

645 PRINT "ANOTHER GAME7 (TYPE Y OR N> " 

646 INPUT A* 

647 IF A*="Y" THEN BOTO 10 

You must then a new line at 5 and 
change line 30 to add the money you 
ended up with at the end of the game 
to the money allowed for the new 
game: 

5 LET 11=0 

30 LET M=M+INT(RND»50+10)*P 

(Make sure you use the correct 
version of RND for your computer.) 
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Usbor ne Computer Programs - 

Each of these colourful new books contains 14 simple games programs to 
play on a microcomputer.* Alongside the programs there are 
explanations of how they work and puzzles and suggestions for ways of 
changing them. Through playing these games even complete beginners 
will quickly begin to understand how a simple program works and be 
itching to write their own. There are tips and hints on writing programs 
and a summary of BASIC at the back of each book and also a chart which 
will help you convert programs in magazines and other books to work on 
your micro. 

*The programs in these books are suitable for use on the following 
micros: ZX81, BBC, TRS-80, VIC 20, Pet, Apples which use Palsoft BASIC 
and ZX Spectrum 
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A colourful guide to 
microcomputers, how 
they work and what they 
can do, with lots of ideas 
for things you can do 
with a micro. 



A step-by-step guide to 
programming in BASIC 
for absolute beginners. 
With lots of programs to 
run on any 
microcomputer. 



A colourful look at how 
computers play Space 
Invaders, chess and 
other games, with lots of 
tips on how to beat the 
computer. 
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